home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OctaMED Sound Studio 1
/
OctaMED SoundStudio V1.iso
/
docs
/
rexx
/
f9.omed
< prev
next >
Wrap
Text File
|
1996-06-18
|
590b
|
18 lines
/* F9 */
if ~open("f_keys","T:f_keys.omedtemp",R) then exit
f6 = readln("f_keys")
f7 = readln("f_keys")
f8 = readln("f_keys")
f9 = readln("f_keys")
call close("f_keys")
rn_isranged var rn_state
if ~rn_state then ed_goto line f9
else do
if ~open("rn_begin","T:rn_begin.omedtemp",R) then exit
rn_begin = readln("rn_begin")
call close("rn_begin")
ed_goto line f9
ed_getcurrtrack var currtrack
if f9>=rn_begin then rn_setrange starttrack currtrack startline rn_begin endtrack currtrack endline f9
else rn_setrange starttrack currtrack startline f9 endtrack currtrack endline rn_begin
end